home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 60.zip / BS1 part 60 / Highspeed pascal.adf / Interface / Clipboard.pas < prev    next >
Pascal/Delphi Source File  |  1992-01-16  |  695b  |  47 lines

  1. Unit Clipboard;
  2.  
  3. Interface
  4. Uses Exec;
  5.  
  6. Type
  7.   tSatisfyMsg = Record
  8.           sm_Msg: tMessage;
  9.           sm_Unit: Integer;
  10.           sm_ClipID: LongInt;
  11.         End;
  12.  
  13.   tClipboardUnitPartial = Record
  14.           cu_Node: tNode;
  15.           cu_UnitNum: LongInt;
  16.         End;
  17.  
  18.   pDevice = ^tDevice;
  19.   pUnit = ^tUnit;
  20.   tIOClipReq = Record
  21.           io_Message: tMessage;
  22.           io_Device: pDevice;
  23.           io_Unit: pUnit;
  24.           io_Command: Integer;
  25.           io_Flags: ShortInt;
  26.           io_Error: ShortInt;
  27.           io_Actual: LongInt;
  28.           io_Length: LongInt;
  29.           io_Data: pShortInt;
  30.           io_Offset: LongInt;
  31.           io_ClipID: LongInt;
  32.         End;
  33.  
  34.  
  35.  
  36. Const
  37.   CBD_POST = $9;
  38.   PRIMARY_CLIP = $0;
  39.   CBD_CURRENTREADID = $A;
  40.   CBD_CURRENTWRITEID = $B;
  41.   CBERR_OBSOLETEID = $1;
  42.  
  43.  
  44.  
  45.  
  46. End.
  47.